home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 November / Ahoy_Magazine_88-11_1988_Double_L.d64 / dir 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  7KB  |  194 lines
  1. 30 rem********************************
  2. 32 rem*       menu program v2.0      *
  3. 34 rem*  (c)1988 double l software   *
  4. 38 rem*      all rights reserved     *
  5. 40 rem********************************
  6. 41 clr:poke53296,1
  7. 42 at=679:forn=attoat+22:readm:poken,m:next
  8. 44 data32,180,2,132,251,32,180,2
  9. 46 data166,251,76,240,255,32,253,174
  10. 48 data32,158,173,32,170,177,96
  11. 50 poke53265,peek(53265)and239
  12. 60 gosub4000:v=53248:x1=75:y1=100
  13. 80 dim p$(4,12),pg$(4,12),in$(4,12):gosub5000:nn=3:b=.:gosub5190
  14. 100 poke53280,0:poke53281,1:printchr$(14):gosub2500
  15. 110 poke2040,15:pokev+39,10:pokev,x1:pokev+1,y1
  16. 120 gosub800:poke53265,peek(53265)or16:poke53296,0
  17. 140 lc=55590:p=7:h=1:pokev+21,1
  18. 145 b=b+1:ifb>nnthenb=1
  19. 150 fori=1to12:sysat,i+6,14:print"[144]"p$(b,i):next:pokev+1,y1
  20. 204 f=len(p$(b,h)):fora=0tof:pokelc+a,8:next:gosub1000
  21. 206 getan$:ifan$=""then206
  22. 208 ifan$=chr$(17)then1250
  23. 210 ifan$=chr$(145)then1300
  24. 215 ifan$=chr$(13)then2000
  25. 222 ifan$=chr$(32)thengosub3000:y1=100:goto140
  26. 225 goto204
  27. 230 print"[147]";:poke53280,0:poke53281,0:pokev+21,0
  28. 235 print"[158][204]oading...";chr$(34);p$(b,h)chr$(34);"[144]"
  29. 240 print"load";chr$(34);p$(b,h);chr$(34);",8"
  30. 250 printchr$(142)"run":print "[145][145][145][145][145][145][145][145][145]"
  31. 260 poke 631,13:poke 632,13:poke 198,2:end
  32. 800 print"[147]":sysat,2,2:print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  33. 805 sysat,1,3:print"[144][205]enu [208]rogram (c) [196]ouble [204] [211]oftware"
  34. 810 sysat,3,2:print"[221]  [144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]  [221]"
  35. 815 fori=4to19
  36. 820 sysat,i,2:printtab(2)"[221]  [144][221]                            [221]  [221]":next
  37. 830 sysat,20,2:print"[221]  [144][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]  [221]"
  38. 835 sysat,21,2:print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  39. 840 sysat,22,1:print"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  40. 850 sysat,23,1:print"[221] [150][195]rsr[144]=[211]elect  [211]pc[144]=[205]ore  [154][195]/[210][144]=[197]xecute [221]"
  41. 860 sysat,24,1:print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  42. 870 sysat,3,10:print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  43. 880 sysat,4,10:print"[221] [205] [193] [201] [206]  [205] [197] [206] [213] [221]"
  44. 890 sysat,5,10:print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  45. 900 return
  46. 1000 s=54272:pokes+23,0:pokes+24,15
  47. 1010 pokes+6,0:pokes+5,12:pokes+1,70:pokes+3,40
  48. 1020 pokes+4,0:pokes+4,65:ford=1to100:next:pokes+4,0:return
  49. 1250 y1=y1+8:ify1>188theny1=100
  50. 1255 pokev+1,y1:fori=0tof:pokelc+i,0:next
  51. 1260 h=h+1:ifh>12thenh=1
  52. 1262 p=p+1:ifp>18thenp=7
  53. 1265 lc=lc+40:iflc>56030thenlc=55590
  54. 1270 goto204
  55. 1300 y1=y1-8:ify1<100theny1=188
  56. 1305 pokev+1,y1:fori=0tof:pokelc+i,0:next
  57. 1310 h=h-1:ifh<1thenh=12
  58. 1312 p=p-1:ifp<7thenp=18
  59. 1315 lc=lc-40:iflc<55590thenlc=56030
  60. 1320 goto204
  61. 1550 sys828:pokev+21,0
  62. 1560 sysat,12,4:print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  63. 1570 printtab(4)"[221] [212]his is a 128 [208]rogram. [201]t may[221]"
  64. 1580 printtab(4)"[221] not be loaded in the 64 mode.[221]"
  65. 1590 printtab(4)"[221] [217]ou must switch to the 128   [221]"
  66. 1600 printtab(4)"[221] mode in order to load this   [221]"
  67. 1610 printtab(4)"[221] program successfully. [213]se the[221]"
  68. 1620 printtab(4)"[221] prescribed method which is   [221]"
  69. 1630 printtab(4)"[221] [196][204][207][193][196] ";chr$(34);"[208]rogname";chr$(34);".            [221]"
  70. 1640 printtab(4)"[221]       [[208]ress any [203]ey]        [221]"
  71. 1650 printtab(4)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  72. 1660 sysat,22,3:print"[144]                                  ":gosub1000
  73. 1670 getan$:ifan$=""then1670
  74. 1680 sys882:pokev+21,1:goto225
  75. 1997 rem **************************
  76. 1998 rem ****  window routine  ****
  77. 1999 rem **************************
  78. 2000 sys828
  79. 2010 sysat,4,11:print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  80. 2030 printtab(11)"[221][211]ee [201]nstructions[221]"
  81. 2040 printtab(11)"[221][210]un [208]rogram     [221]"
  82. 2050 printtab(11)"[221][195]ancel [215]indow   [221]"
  83. 2060 printtab(11)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  84. 2070 po=55507:x=0
  85. 2080 fori=1to16:pokepo+i,0:next:gosub1000
  86. 2090 getan$:ifan$=""then2090
  87. 2100 ifan$=chr$(17)thengosub2200:po=po+40:x=x+1:ifpo>55587thenpo=55507
  88. 2110 ifx>2thenx=0
  89. 2120 ifan$=chr$(13)then2140
  90. 2130 goto2080
  91. 2140 ifx=0thensys882:goto4100
  92. 2145 ifx=2then2180
  93. 2146 ifb=1andh=3orb=1andh=6then2155
  94. 2147 ifb=2andh=4orb=2andh=5orb=2andh=10then2155
  95. 2148 ifb=3andh=1orb=3andh=2then2155
  96. 2149 rem ifb=4 then2155
  97. 2150 goto2159
  98. 2155 sys882:goto1550
  99. 2159 ifx=1thensys882
  100. 2160 fori=0to35:pokev,x1+i:ford=1to35:next:next
  101. 2170 pokev+21,0:goto230
  102. 2180 sys882:goto225
  103. 2200 fori=1to16:pokepo+i,5:next:return
  104. 2500 p$(1,1)="[198]lankspeed":in$(1,1)="[198]lank in"
  105. 2510 p$(1,2)="64 [194]ug [210]ep [201][201]":in$(1,2)="[194]ug [210]ep in"
  106. 2520 p$(1,3)="128 bug rep ii":in$(1,3)="bug rep in"
  107. 2530 p$(1,4)="[211]ack [210]ace":in$(1,4)="[211]ack [210]ace in"
  108. 2540 p$(1,5)="[201]sland [209]uest":in$(1,5)="[201]sland [209]uest in"
  109. 2550 p$(1,6)="easy80":in$(1,6)="easy80 in"
  110. 2560 p$(1,7)="[201]nsert":in$(1,7)="[201]nsert in"
  111. 2580 p$(1,8)="[205]ini-[195]omp":in$(1,8)="[205]ini-[195]omp in"
  112. 2590 p$(1,9)="[202]oystick [201]nit.":in$(1,9)="[202]oystick in"
  113. 2600 p$(1,10)="[198]ile [204]ocator":in$(1,10)="[198]ile [204]oc in"
  114. 2610 p$(1,11)="[215]ritten [210][197][205] 1":in$(1,11)="[215]ritten 1 in"
  115. 2615 p$(1,12)="[215]ritten [210][197][205] 2":in$(1,12)="[215]ritten 2 in"
  116. 2620 p$(2,1)="[194]irthday [208]arty":in$(2,1)="[194]irthday in"
  117. 2630 p$(2,2)="[205]ini [205]on":in$(2,2)="[205]ini [205]on in"
  118. 2640 p$(2,3)="[211]tatic [197]lec.":in$(2,3)="[211]tatic in"
  119. 2650 p$(2,4)="teletype":in$(2,4)="teletype in"
  120. 2660 p$(2,5)="short ebc 128":in$(2,5)="short ebc in"
  121. 2670 p$(2,6)="[211]hort [197][194][195] 64":in$(2,6)="[211]hort [197][194][195] in"
  122. 2690 p$(2,7)="[195]haracter [211]et":in$(2,7)="[195]haracter in"
  123. 2700 p$(2,8)="[198][193][211][212] [205]ode":in$(2,8)="[198]ast [205]ode in"
  124. 2710 p$(2,9)="[212]est [198][193][211][212]":in$(2,9)="[212]est [198][193][211][212] in"
  125. 2720 p$(2,10)="c-128 curtain":in$(2,10)="c-128 cur in"
  126. 2730 p$(2,11)="[195]-64 [195]hain [204]oad":in$(2,11)="[195]-64 [195]hain in"
  127. 2740 p$(2,12)="[215]indow [198]ill":in$(2,12)="[215]indow [198]ill in"
  128. 2750 p$(3,1)="terminator":in$(3,1)="terminator in"
  129. 2760 p$(3,2)="auto insert":in$(3,2)="auto insert in"
  130. 2770 p$(3,4)="            ":in$(3,4)="         "
  131. 2780 p$(3,5)="               ":in$(3,5)="           "
  132. 2790 p$(3,6)="         ":in$(3,6)="        "
  133. 2800 p$(3,7)="            ":in$(3,7)="        "
  134. 2810 p$(3,8)="             ":in$(3,8)="         "
  135. 2820 p$(3,9)="             ":in$(3,9)="            "
  136. 2830 p$(3,10)="            ":in$(3,10)="       "
  137. 2840 p$(3,11)="            ":in$(3,11)="       "
  138. 2850 p$(3,12)="              ":in$(3,12)="       "
  139. 2860 p$(4,1)="    ":in$(4,1)="       "
  140. 2999 return
  141. 3000 forcl=7to18:sysat,cl,14:print"[144]                 ":next:return
  142. 4000 rempoke657,128:rem disable shift/com key
  143. 4010 rempoke775,200:rem disable listing
  144. 4020 rempoke808,234:rem disable stop/restore
  145. 4030 return
  146. 4100 sys828:pokev+21,0:zz$=in$(b,h)
  147. 4105 open2,8,2,"@0:"+zz$+",s,r"
  148. 4106 forxx=1to5
  149. 4107 input#2,tx$(xx)
  150. 4108 next:close2
  151. 4110 sysat,7,1:print"[156][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  152. 4120 fori=8to13:sysat,i,1:print"[221]                                    [221]"
  153. 4125 next
  154. 4130 sysat,14,1:print"[221]   [144][[195]/[210]=[195]ancel * [211]pc=[210]un [208]rogram][156]   [221]"
  155. 4140 sysat,15,1:print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  156. 4145 sysat,22,3:print"[144]                                  ":gosub1000
  157. 4150 forxx=1to5:sysat,7+xx,3:print"[156]"tx$(xx):next
  158. 4160 getan$:ifan$=""then4160
  159. 4170 ifan$=chr$(13)thensys882:goto204
  160. 4180 ifb=1andh=3orb=1andh=6then4195
  161. 4182 ifb=2andh=4orb=2andh=5orb=1andh=10then4195
  162. 4183 ifb=3andh=1orb=3andh=2then4195
  163. 4184 rem if b=4
  164. 4190 sys882:pokev+21,1
  165. 4192 fori=0to35:pokev,x1+i:ford=1to35:next:next
  166. 4194 pokev+21,0:goto230
  167. 4195 sys882:goto1550
  168. 4200 goto4160
  169. 5000 fori=828to935:reada:pokei,a:next:return
  170. 5010 data 160,0,185,0,4,153,0,192
  171. 5020 data 185,0,216,153,240,195,185,250
  172. 5030 data 4,153,250,192,185,250,216,153
  173. 5040 data 234,196,185,244,5,153,244,193
  174. 5050 data 185,244,217,153,228,197,185,238
  175. 5060 data 6,153,238,194,185,238,218,153
  176. 5070 data 222,198,200,208,205,96,160,0
  177. 5080 data 185,0,192,153,0,4,185,240
  178. 5090 data 195,153,0,216,185,250,192,153
  179. 5100 data 250,4,185,234,196,153,250,216
  180. 5110 data 185,244,193,153,244,5,185,228
  181. 5120 data 197,153,244,217,185,238,194,153
  182. 5130 data 238,6,185,222,198,153,238,218
  183. 5140 data 200,208,205,96
  184. 5190 fori=960to1022:readn:pokei,n:next:return
  185. 5200 data 0,0,0,0,0,0,0
  186. 5210 data 0,0,0,0,0,0,0
  187. 5220 data 0,0,0,0,0,1,192
  188. 5230 data 0,0,224,0,0,112,0
  189. 5240 data 255,252,0,255,255,0,255
  190. 5250 data 252,0,0,112,0,0,224
  191. 5260 data 0,1,192,0,0,0,0
  192. 5270 data 0,0,0,0,0,0,0
  193. 5280 data 0,0,0,0,0,0,0
  194.